home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 21 / AMIGAplus Sonderheft 21 (1999)(ICP)(DE)[!].iso / Multimedia / Bilder / Cliparts / ShowIt < prev    next >
Text File  |  1999-08-18  |  2KB  |  98 lines
  1. ; **** Diashow der Screenshots in der AMIGA-FUTURE - Skript © Cord Hagen ****
  2.  
  3. ; Diashow "AMIGA-FUTURE-Screenshots"
  4.  
  5. ALIAS BLACK "ECHO *"*E[>1m*E[30;41m*E[0;0H*E[J""
  6. IF EXISTS ENV:ASSAFCD
  7.  SKIP SHOW
  8. ENDIF
  9. BLACK
  10. ECHO "*n Die AMIGA-FUTURE-CD-ROM ist NICHT angemeldet."
  11. ECHO " Starten Sie bitte zunächst -> QUICKSTART <- im Hauptverzeichnis dieser CD-ROM."
  12. ECHO " Erst danach können Sie Medienshows starten ...."
  13. WAIT 8
  14. SKIP ENDE
  15. LAB SHOW
  16. SETENV AFCDCHK=0
  17. SETENV SCRDIR=99
  18.  
  19. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  20.  
  21. ; SETENV SCRDIR=DRAWER ;in SCR:
  22.  
  23. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  24.  
  25. IF $SCRDIR EQ 99
  26. ASSIGN FPTARGET: ""
  27. ENDIF
  28.  
  29. REQUESTCHOICE >ENV:AFCDCHK TITLE "Future © Show""Mit welchem Bildanzeiger sollen*ndie Bilder angezeigt werden ?" FastView ViewTek CyberView MysticView MultiView Abbrechen
  30.  
  31. IF $AFCDCHK EQ 0
  32.  SKIP ENDE
  33. ENDIF
  34.  
  35. IF $AFCDCHK EQ 1
  36.  IF $SCRDIR EQ 99
  37.   RUN >NIL: FV #?
  38.   SKIP ENDE
  39.  ENDIF
  40.  RUN >NIL: FV SCR:$SCRDIR/#?
  41.  SKIP ENDE
  42. ENDIF
  43.  
  44. IF $AFCDCHK EQ 2
  45.  IF $SCRDIR EQ 99
  46.   RUN >NIL: VT #?
  47.   SKIP ENDE
  48.  ENDIF
  49.  RUN >NIL: VT SCR:$SCRDIR/#?
  50.  SKIP ENDE
  51. ENDIF
  52.  
  53. IF $AFCDCHK EQ 3
  54.  IF $SCRDIR EQ 99
  55.   RUN >NIL: CV #?
  56.   SKIP ENDE
  57.  ENDIF
  58.  RUN >NIL: CV SCR:$SCRDIR/#?
  59.  SKIP ENDE
  60. ENDIF
  61.  
  62. IF $AFCDCHK EQ 4
  63.  IF $SCRDIR EQ 99
  64.   BLACK
  65.   ECHO "*n INFO: In MysticView werden Bilder am bequehmsten mit der Leertaste"
  66.   ECHO " weitergeschaltet ....."
  67.   CURSOR OFF
  68.   WAIT 3
  69.   RUN >NIL: MY #?
  70.   SKIP ENDE
  71.  ENDIF
  72.   BLACK
  73.   ECHO "*n INFO: In MysticView werden Bilder am bequehmsten mit der Leertaste"
  74.   ECHO " weitergeschaltet ....."
  75.   CURSOR OFF
  76.   WAIT 3
  77.  RUN >NIL: MY SCR:$SCRDIR/#?
  78.  SKIP ENDE
  79. ENDIF
  80.  
  81. IF $AFCDCHK EQ 5
  82.  IF $SCRDIR EQ 99
  83.   RUN >NIL: MV #?
  84.   SKIP ENDE
  85.  ENDIF
  86.  RUN >NIL: MV SCR:$SCRDIR/#?
  87.  SKIP ENDE
  88. ENDIF
  89.  
  90. LAB ENDE
  91. SETENV AFCDCHK=0
  92. SETENV SCRDIR=0
  93. IF EXISTS ENV:ASSAFCD
  94. RUN >NIL: PLAY16 SFX:Click.WAV
  95. ENDIF
  96. ENDCLI
  97.  
  98.